home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / Functions Part2 / background_2687.txt < prev    next >
Text File  |  1989-08-04  |  4KB  |  216 lines
  1. -- background: 2687 from stack: in
  2. -- bmap block id: 3078
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main Bkgnd
  6. ----- HyperTalk script -----
  7. on newCard
  8.   tabKey
  9. end newCard
  10.  
  11. on enterKey
  12.   go next
  13. end enterKey
  14.  
  15.  
  16.  
  17.  
  18.  
  19. -- part 3 (button)
  20. -- low flags: 00
  21. -- high flags: 2000
  22. -- rect: left=469 top=25 right=46 bottom=497
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 11045 / 11045
  25. -- text alignment: 1
  26. -- font id: 3
  27. -- text size: 9
  28. -- style flags: 256
  29. -- line height: 12
  30. -- part name: New Button
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   play "hastalavista"
  34.   --repeat while the sound is not "done"
  35.   --wait 1 sec
  36.   go to card id 5341 of stack "HOME"
  37.   --end repeat
  38. end mouseUp
  39.  
  40.  
  41.  
  42.  
  43. -- part 4 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=257 top=298 right=320 bottom=300
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 22308 / 22308
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Multi-Next
  55. ----- HyperTalk script -----
  56. on mouseDown
  57.   visual scroll left
  58.   go to next card of this bkgnd
  59.   put the ticks into tickHolder
  60.   repeat until (the mouse is up)
  61.     if (the ticks - tickHolder) > 30
  62.     then
  63.     go to next card of this bkgnd
  64.     put the ticks into tickHolder
  65.   end if
  66. end repeat
  67. end mouseDown
  68.  
  69.  
  70.  
  71. -- part 5 (button)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=215 top=298 right=320 bottom=258
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 19381 / 19381
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Multi-Prev
  83. ----- HyperTalk script -----
  84. on mouseDown
  85.   go to prev card of this bkgnd
  86.   put the ticks into tickHolder
  87.   repeat until (the mouse is up)
  88.     if (the ticks - tickHolder) > 30
  89.     then
  90.     go to prev card of this bkgnd
  91.     put the ticks into tickHolder
  92.   end if
  93. end repeat
  94. end mouseDown
  95.  
  96.  
  97.  
  98. -- part 6 (button)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=443 top=275 right=312 bottom=483
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 14953 / 14953
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Return
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   visual iris close to grey
  113.   visual iris open
  114.   pop card
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 8 (field)
  120. -- low flags: 01
  121. -- high flags: 2000
  122. -- rect: left=54 top=32 right=56 bottom=457
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 1280
  129. -- line height: 16
  130. -- part name: Title
  131. ----- HyperTalk script -----
  132. on enterInField
  133.   Set name of this card to field "title"
  134. end enterInField
  135.  
  136.  
  137. -- part 18 (field)
  138. -- low flags: 01
  139. -- high flags: 2000
  140. -- rect: left=38 top=69 right=140 bottom=504
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 0
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: Body
  149.  
  150.  
  151. -- part 20 (button)
  152. -- low flags: 00
  153. -- high flags: 8003
  154. -- rect: left=394 top=311 right=333 bottom=505
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Go LImacSTACK
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   push cd
  166.   convert the date to dateitems
  167.   put item 2 of it into stackMonth
  168.   go stack "LImacSTACK."& stackMonth & "/89"
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 21 (button)
  174. -- low flags: 00
  175. -- high flags: 8003
  176. -- rect: left=24 top=311 right=333 bottom=135
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: go Help Stack
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   push cd
  188.   put fld 1 into whatFind
  189.   go card id 106499 of stack "Help" -- first cd of Function section
  190.   find whatFind in fld 1
  191.   if the result is not empty then go card id 103939 of stack "Help"
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 22 (button)
  197. -- low flags: 00
  198. -- high flags: 0000
  199. -- rect: left=436 top=25 right=46 bottom=469
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 26635 / 26635
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: New Button
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   push cd
  211.   visual wipe down to black
  212.   visual wipe up
  213.   go card "Help"
  214. end mouseUp
  215.  
  216.